home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 18 / CU Amiga Magazine's Super CD-ROM 18 (1997)(EMAP Images)(GB)[!][issue 1998-01].iso / CUCD / Programming / ARexxGuide / OS2.x_Version / ARx_Glossary.rexx < prev    next >
OS/2 REXX Batch file  |  1994-03-23  |  940b  |  23 lines
  1. /* ARx_Glossary.rexx v1.0 (8 Feb 1994)                         **
  2. ** Called by guide hyperlinks to launch glossary requesters    **
  3. ** The program ARx_GlossaryPort.rexx must also be in rexx:     */
  4.  
  5. if getclip('ARX_SHOWREQ') ~= 1 then do
  6.         /* The clip prevents multiple calls to requester port    */
  7.     call setclip('ARX_SHOWREQ', 1)
  8.     arg LkUp
  9.         /* Use a port to avoid re-reading compounds on each call */
  10.     if show('P', 'ARX_REQPORT') then do
  11.         address 'ARX_REQPORT' 'DISPLAY' LkUp address()
  12.             /* Clear clip after requester port returns control    */
  13.         call setclip('ARX_SHOWREQ', 0)
  14.     end
  15.     else    /* Set up the requester port.                         */
  16.         address ARexx '"ARx_GlossaryPort.rexx '''LkUp''' '''address()'''"'
  17.  
  18. end
  19.     /* This won't show anything on first click, but will get rid of bad **
  20.     ** value in the clip list.                                          */
  21. else if ~show('P', 'ARX_REQPORT') then
  22.     call setclip('ARX_SHOWREQ', 0)
  23.